# NOT RUN {
data(HorseFlu)
head(HorseFlu)
## default plot: time line
plot(HorseFlu,orderBy='yardID',colorBy='yardID')
plot(HorseFlu,orderBy='yardID',colorBy='yardID',
selection=1:30) # only the first 30
## plot contacts
data(ToyOutbreak)
plot(ToyOutbreak, "contacts")
# }
# NOT RUN {
## plot geographic distribution of individuals
plot(HorseFlu, "geo", location=c('lon','lat'), colorBy='sex',
zoom=12,center='9')
## plot minimum spanning tree for first 10 individuals
get.nindividuals(HorseFlu)
plot(subset(HorseFlu, individuals=1:10), "mst")
# }
Run the code above in your browser using DataLab